Public Class frm_step_4

    Private Sub cmdPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrevious.Click
        show_form(3)
        Me.Close()
    End Sub

    Private Sub cmdFinish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFinish.Click

        oJL.step_4(txtCopyTo.Text)

        AppInit.step_flag = 0

        frm_step(1).Close()
        frm_step(2).Close()
        frm_step(3).Close()
        frm_step(4).Close()

    End Sub

    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Close()
    End Sub

    Private Sub frm_step_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Left = 50
        Me.Top = 50

        oJL.reset_view()

    End Sub

    Private Sub cmdBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrowse.Click
        txtCopyTo.Text = FolderBrowser.ShowDialog()
    End Sub

    Private Sub txtCopyTo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCopyTo.TextChanged

        If txtCopyTo.Text <> "" Then
            cmdFinish.Enabled = True
        Else
            cmdFinish.Enabled = False
        End If

    End Sub
End Class